01000		TITLE PLOTIT ; ********* MAY 9,75 *********
03000		INTERNAL UNPAC
03100		EXTERNAL PLOT,PLOTS
03200	
06000		CH3←15	;WAS ←13  4/18/75 *******
07000	
14000	NAME:	0
14100	BYPO:	700,,NAME
15000	
16000	;;GETFI2:	0
17000	;;	MOVE 0,@0(16)
17100	BEG:	JSA 16,PLOTS
17200		JUMP 2
17300	
17400		OUTSTR[ASCIZ/FILE NAME -- /]
17500		INCHWL 2
17600		CAIN	2,15		; LOOK FOR BLANK
17700		JRST 	DFAULT
17800		IDPB	2,BYPO
17900		INCHRS	2
17950		JRST 	DONE		; LOOK FOR <CR>
17960		CAILE	2,100		; CHECKS FOR NON-LETTERS
17970		JRST	.-4
17980	DONE:
20000		SKIPA
20010	DFAULT:	MOVE 0,[SIXBIT/PLT/]
20020	NMX:	MOVEM 0,DIR
20030	;******
20040		MOVEI REGS
20100		BLT REGS+3
20200		INIT CH3,17
20300		SIXBIT/DSK/
20400		0
20500		0
20550	;******
21000		MOVE 0,[SIXBIT/DMD/]
22000		MOVEM 0,DIR+1
23000	;******
24000		SETZM DIR+2
24100		SETZM DIR+3
24200		LOOKUP CH3,DIR
24300		HALT
26000		SETZM DIR+1
30000	
30600	
48000	;CALL FASTI2(<ARRAY>,<NO. WORDS>)
49000	
51000	INP:	HRRZI 0,M
52000		SUBI 0,1
53000		MOVEM 0,COM
54000		MOVNI 0,=128
55000		HRLM 0,COM
56000		INPUT CH3,COM
57000		STATZ CH3,740000
58000		0
58100		MOVEI 6,1
58200	LUP:	MOVEI 5,M
58250		ADDI  5,(6)
58400		MOVE 5,(5)
59000		JSA 16,UNPAC
59100		JUMP 5
59200		JUMP I
59300		JSA 16,PLOT
59400		JUMP I
59500		JUMP J
59600		JUMP K
59700		CAMGE 6,M
59800		AOJA 6,LUP
59810	
59900		MOVE 2,M
60000		CAIN 2,=127
60100		JRST INP
60200		EXIT
61000	COM:	OCT 0,0
62000	BLKNUM:	0
63000	
70000	
70100	I:	0
70200	J:	0
70300	K:	0
70400	M:	BLOCK =128
70500	
71000		CH←13
72000	
73000	REGS:	BLOCK 20
74000	
75000	DIR:	BLOCK 4
76000	
77000	UNPAC:	0		;CALL UNPAC(PW,AR)
78000		HRRZ 1,1(16)
79000		ADDI 1,2
80000		MOVE 2,@0(16)
81000		LSHC 2,-10	; 14 BITS, 14 BITS, 8 BITS
82000		ASH 3,-34
83000		MOVEM 3,@1
84000		SOJ 1,
85000		LSHC 2,-16
86000		ASH 3,-26
87000		MOVEM 3,@1
88000		SOJ 1,
89000		LSHC 2,-16
90000		ASH 3,-26
91000		MOVEM 3,@1
92000		JRA 16,2(16)
93000	
93100		END BEG